home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9101a.d64
/
4 gewinnt 2002
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
22 lines
0 POKE53280,0:POKE53281,0:PRINTCHR$(142);CHR$(8)
1 PRINT"[147]":PRINT"[176]";:FORI=1TO8:PRINT"[195][178]";:NEXT:PRINT"[195][174]":FORI=1TO8:FORE=1TO10:PRINT"[221] ";:NEXT:PRINT:PRINT"[171][195]";
2 FORE=1TO8:PRINT"[219][195]";:NEXT:PRINT"[179]":NEXT:FORE=1TO10:PRINT"[221] ";:NEXT:PRINT:PRINT"[173][192]";:FORI=1TO8:PRINT"[177][195]";:NEXT:PRINT"[189]"
3 PRINT"":FORI=73TO65STEP-1:PRINTTAB(59);CHR$(I):NEXT:PRINT" ";:FORI=1TO9:PRINT"[157]"I;:NEXT
4 DIMK(9,9):FORI=1TO9:FORE=1TO9:K(I,E)=32:NEXT:NEXT:PRINT:PL=2
5 IFPL=2THENPL=1:PT=86:Q$="[214]":PRINT"":GOTO7
6 PL=2:PT=81:Q$="[209]":PRINT""
7 PRINT"SPIELER"PL" ("Q$") [175][157]";:WAIT203,64:GETA$:PRINTA$;:A=VAL(A$):IFA>0ANDA<10THEN11
8 IFA$<"A"ORA$>"I"THENPRINT"[145]":GOTO7
9 Y=ASC(A$)-64:FORI=2TO9:K(I-1,Y)=K(I,Y):NEXT:K(9,Y)=PT:FORI=1TO9:P=2*I-80*(Y-1)
10 POKE1743+P,K(I,Y):NEXT:GOTO13
11 X=A:FORI=8TO1STEP-1:K(X,I+1)=K(X,I):NEXT:K(X,1)=PT:FORI=1TO9:P=2*X-80*(I-1)
12 POKE1743+P,K(X,I):NEXT
13 SYS2932:E1=PEEK(680):E2=PEEK(681)
14 IFE1=0THEN 5
15 IFE2<>0THEN18
16 PRINT:PRINT"GAME OVER! ES GEWINNT SPIELER ";:IFE1=81THENPRINT"2 ([209])";:GOTO19
17 IFE1=86THENPRINT"1 ([214])";:GOTO19
18 PRINT:PRINT"GAME OVER! UNENTSCHIEDEN!!";
19 GETA$:IFA$=""THEN19
20 RUN